home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / dir.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  666 b   |  28 lines
  1. if (!defined &_DIR) {
  2.     eval 'sub _DIR {1;}';
  3.     require 'sys/types.ph';
  4.     if (!defined( &KERNEL) && !defined( &DEV_BSIZE)) {
  5.     eval 'sub DEV_BSIZE {512;}';
  6.     }
  7.     eval 'sub DIRBLKSIZ { &DEV_BSIZE;}';
  8.     eval 'sub MAXNAMLEN {255;}';
  9.     eval 'sub DIRSIZ {
  10.         local($dp) = @_;
  11.         eval "(($sizeof{\'struct direct\'} - ( &MAXNAMLEN+1)) + ((($dp)-> &d_namlen+1 + 3) &~ 3))";
  12.     }';
  13.     if (!defined &KERNEL) {
  14.     eval 'sub dirfd {
  15.         local($dirp) = @_;
  16.         eval "(($dirp)-> &dd_fd)";
  17.     }';
  18.     if (!defined &NULL) {
  19.         eval 'sub NULL {0;}';
  20.     }
  21.     eval 'sub rewinddir {
  22.         local($dirp) = @_;
  23.         eval " &seekdir(($dirp), (\'long\')0)";
  24.     }';
  25.     }
  26. }
  27. 1;
  28.